Option Explicit
Sub Q_Sample057()
    Dim myHwnd As Long
    Dim myClassName As String * 100
    Dim myCaption As String * 80
    Dim myRow As Long
    myHwnd = FindWindow(vbNullString, _
                        Application.VBE.MainWindow.Caption)
    GetClassName myHwnd, myClassName, Len(myClassName)
@@MsgBox Left(myClassName, InStr(myClassName, vbNullChar) - 1)
End Sub